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—File: WManWindows.mesa 

—Edited by Sandman October 7, 1977 9:46 AM 

DIRECTORY 

SegmentDefs: FROM "segmentdef s" , 
StreamDefs: FROM "streamdefs" , 
StringDefs: FROM "stringdefs" . 
SystemOefs: FROM "systemdef s" . 
MenuDefs: FROM "menudefs", 
RectangleDefs: FROM "rectangledefs", 
WindowOefs: FROM "windowdefs" , 
WManagerOefs: FROM "wmanagerdefs"; 

DEFINITIONS FROM StreamDefs , MenuDefs. RectangleDefs, WindowDefs, WManagerOefs; 

WManWindows: PROGRAM[WMState: WMDataHandle] 

IMPORTS SegmentDefs, StreamDefs, SystemOefs, MenuDefs, RectangleDefs, WindowOefs, WManagerOefs 

EXPORTS WManagerOefs 

SHARES StreamDefs, WManagerOefs » 

BEGIN 

OPEN WMState; 

CR: CHARACTER = 16C; 

-- some externals 

PutSelect: PUBLIC PROCEDURE [w: WindowHandle, x: xCoord. y: yCoord]= 
BEGIN 

-- Declare Locals 
i: CARDINAL; 
str: STRING; 
nw: WindowHandle; 
doit: BOOLEAN; 

[nw, doit] ♦" WindowFrontEnd[w, leftbutton]; 
IF doit THEN 

BEGIN 

-- get current selection and jam it into the keyboard stream 

str ♦- GetSelection[w]; 

IF nw.ks it NIL THEN 

FOR i DECREASING IN [0 .. str . length) DO 
nw.ks,putback[nw.ks , str[i]]; 
ENDLOOP: 

SystemOefs. FreeHeapString[str] ; 

END; 
ButtonWait; 

SetCursor[textpo inter]; 
END; 

CreateWindow: PUBLIC PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord] = 
BEGIN 

-- define locals 
i: INTEGER; 
rectangle: Rptr; 
ds: Displ ayHandle; 
ks: StreamHandle; 
name: STRING; 
nw: WindowHandle; 
mb : AMouseButton ♦- None; 
-- Look at mouse for what to do 
SetCursor[ leftbutton]; 
UNTIL (mb *- GetMouseBu t ton[ ] ) = Red DO 
IF mb ^ Blue THEN 
BFGIN 

Bu ttonWa it; 

SetCursor[ textpoin ter] ; 
RCTURN; 
FMD; 
CNDIOOP; 
-- now create a new one 
SetCursor[hourglass] ; 
ks ♦- SLreamDefs .CreateKeyStream[] ; 

[x,y] ♦- CursorToMapCoords[defaul tmapdata, xcursorloct, ycursorloct] ; 
rectangle *- CreateRectangle[derauUmapdata, x. 200. y. 200]; 
[name, i] ♦- Ass ignScratchF i le[] ; 
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ds ^ CreateDisplayStr8am[rectangl0]; 

nw <- CreateDisplayWindow[scratch, rectangle, ds, ks, name]; 
scratchf iles[i] ^ nw.file; 
SystemDefs.FreeHeapStringiname]; 
StreamDefs.OpenKeyStream[ks]; 
ButtonWait; 

SetCursor[textpo inter]; 
END; 

DestroyWindow: PUBLIC PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord]= 
BEGIN 

-- define locals 
i: INTEGER; 
doit: BOOLEAN; 
nw: WindowHandle; 

[nw, doit] ♦• WindowFrontEnd[w, bullseye]; 
IF doit THEN 
BEGIN 

-- check if we can delete this one 
FOR i IN C0..4) DO 

IF windows[i] = nw THEN 
BEGIN 

ButtonWait; 

SetCursor[textpo inter]; 
RETURN; 
END; 
ENOLOOP; 
-- check if one of our scratch files is in the window now 
FOR i IN [0. .maxscratch) DO 

IF scratchfiles[i] = nw.file THEN 

-- deallocate it (gets automatically deletedl) 
BEGIN 

scratchf iles[i] ♦■ NIL; 
EXIT; 
END; 
ENDLOOP; 
— get ric? of all stuff in the window 
IF nw.ds # NIL THEN nw. ds . destroy[nw. ds] ; 
IF nw.ks U NIL THEN nw. ks . destroy[nw. ks] ; 
IF nw.menu # NIL THEN DestroyMenu[nw.menu] ; 
DestroyRectangle[nw. rectangle] ; 
DestroyDisplayWindow[nw] ; 
-- repaint current if not deleted one 
IF nw # w THEN 

PaintDispl ayWindow[w] 
ELSE-- destroy set a new guy current! I 
BEGIN 

nw «- GetCurrentDisplayWindow[] ; 
StreamDef s .OpenKeyStream[nw.ks]; 
MarkSelection[nw]; 
END; 
END; 

ButtonWait; 

SeLCursor[textpointer] ; 
END; 

MoveWindow: PUBLIC PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord] = 
BEGIN 
-- define locals 

savex, mapx: xCoord; 
savey, mapy: yCoord; 
mb : AMouseButton; 
r : Rptr = w. rectangle; 
-- jam cursor 

X «- xmoJiseloct ♦- xcursorloct ♦- r. bitmap. xO + r.xO; 
y ♦- ymouseloct ♦- ycursorloct ^ r. bitmap. yO + r.yO; 
SetCursor[leftbutton]; 

[savex, savey] ♦- CursorToMapCoords[r . b i tmap , x, y]; 
-- while no buttons are down move it 
WHILC (mb ^ GetMouseButton[]) U Red DO 
TF mb = Blue THEN 
RfGIN 

MoveRectangl e[r . savex , savey]; 
rxiT: 
FND: 
[mapx. mapy] <- CursorToMapCoords[r . b i tmap , x, y]; 
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X ♦■ MAX[0, mapx]; 
y ^ MAX[0, mapy]; 
MoveRectang1e[r, x, y]; 
X ^ xcursorloct; 
y ^ ycursorloct; 
ENDLOOP; 
ButtonWait; 

— now paint it for possible cleanup 
PaintDisplayWindow[w]; 
SetCursor[textpo inter]; 

END; 

GrowWindow: PUBLIC PROCEDURE [w: WindowHandle. x: xCoord, y: yCoord]= 
BEGIN 

— define locals 
savewidth, width: xCoord; 
saveheight, height: yCoord; 
mb : AMouseButton; 

r: Rptr = w. rectangle; 
-- first move the cursor to lower right corner 
x ♦- r .bitmap. xO+r. xO+r. cw; 
xmouseloct ♦- xcursorloct ♦• x; 
y ♦• r .bitmap. yO+r,yO+r . ch; 
ymouseloct ♦- ycursorloct ♦• y; 
SetCursor[leftbutton]; 
[savewidth, saveheight] ♦• 

CursorToRectangleCoords[w. rectangle, x, y]; 

— while no buttons are down grow it 
WHILE (mb ♦- GetMouseButton[]) ^ Red DO 

IF GetMouseButton[] = Blue THEN 

BEGIN 

GrowRectangle[r , savewidth, saveheight]; 

EXIT; 

END; 
[width, height] ♦• CursorToRectangleCoords[w. rectangle, x, y]; 
width ♦- MAX[width. 35]; 
height ^ MAX[height, 35]; 
GrowRectangle[r, width, height]; 
X ♦• xcursorloct; y «- ycursorloct; 
ENDLOOP; 
ButtonWait; 

— now paint it for cleanup 
PaintDisplayWindow[w]; 
SetCursor[textpo inter] ; 

END; 

LoadWindow: PUBLIC PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord]= 

BEGIN 
-~ define locals 
i: INTEGER; 
doit: BOOLEAN; 
nw: WindowHandle; 
str, scratchstr: STRING; 

[nw, doit] ♦- W indowFrontEnd[w, leftbutton]; 
SetCursor[hourglass] ; 
IF doit AND nw.type # scriptfile THEN 
BEGIN 
-- check if one of our scratch files is in the window now 
FOR i IN [0. .maxscratch) DO 

IF scratchfiles[ i] = nw.file THEN 
~- deallocate it (gets automatically deleted!) 
BEGIN 

scratchf i les[i ] ♦- NIL; 
EXIT; 
END; 
ENDLOOP; 
str *- GetSelect ion[w]; 
IF str. length > 38 THEN 

str. length <- 38; -- max file name length 
Al terW indowType[nw , file, str 
! Segmen tDef s . F i 1 eNameCrror => 
BFGIN 

NoteNameFrror[nw, str]; 
CONTINUF; 
END 
]: 
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SystemDefs.FreeHeapStr1ng[str]; 

IF w = nw THEN PaintDisplayWindow[w]; 

END; 
ButtonWait; 

SetCursor[textpo inter]; 
END; 

FindSelection: PROCEDURE[w: Window/Handle, x: xCoord, y: yCoord] = 
BEGIN 

— Declare Locals 
i: INTEGER; 
str: STRING; 
nw: ViindowHandle; 
scrollto: Streamlndex; 
doit: BOOLEAN; 
noscpon : BOOLEAN; 

[nw, doit] ♦• WindowFrontEnd[w, leftbutton]; 
SetCursor[ hourglass]; 
-- get current selection 

IF doit AND NOT Equal Index[w. selection . rightindex, nullindex] THEN 
BEGIN 

str ♦- GetSelection[w]; 
w *- GetCurrentDisplayWindow[] ; 
IF w # nw AND nw.file # NIL THEN 
OpenDiskStream[nw. file 
! StreamError => 
BEGIN 

nw.eofindex ♦- Getlndex[nw.f i le]; 
RESUME 
END 

--do a text string search starting from the end of the current selection 
IF Equal Index[nw. selection. rightindex , nullindex] THEN 

nw, selection . r ightindex ♦• originindex; 
BEGIN 
[scrollto, nw. selection, leftindex , nw. selection, rightindex] ♦• 

TextSearch[nw, str, nw. selection. rightindex 
! SearchFailed => GOTO fail]; 
--scroll file to beginning of line containing text 
noscroll <- EqualIndex[scrol 1 to , w. selection . rightindex] ; 
IF nw.type = scratch OR nw.type = scriptfile 

THEN nw.tempindex ♦• scrollto; 
IF NOT noscroll THEN SetIndexForWindow[nw, scrollto] 
ELSE IF nw = w THEN PaintDi spl ayWindow[nw] ; 
EXITS fail => 

IF nw = w THEN Pai ntOi spl ayWindow[nw] ; 
END; 
IF nw ?^ w AND nw.file # NIL 

THEN CloseDiskStream[nw.f ile]; 
SystemDefs . FreeHeapStr ing[str] ; 
END; 
ButtonWait; 

SetCursor[textpo inter]; 
END; 

SearchFailed: ERROR = CODE; 

TextSearch: PROCEDURE [w: Wi ndowHandle , s: STRING, pos: Streamlndex] RETURNS [Streamlndex, StreamI 
**ndex, Streamlndex] = 

-- searches for s using the Knuth, Pratt, Morris algorithm. 

-- returns stream index of the start of the line containing s. 

BEGIN 

i. j: INTEGER; 

char: CHARACTER; 

1 : TNTEGfR = s. length; 

offset: TNTFGFR ♦- 1; 

ff: DESCRIPTOR FOR ARRAY OF INTEGER; -- failure function 

IF 1 = THEN ERROR SearchFailed; -- empty string 

ff *- DESCRIPTOR[SystemDefs.AnocateHeapNode[l], 1]; 

-- set up failure function 

j ^ 0; i ♦- ff[0] *■ -1; 

WHIl.f j < 1-1 DO 

WHIIE i >= AND s[j] ^ s[i] DO i ♦• ff[i] ENDLOOP; 

i ♦- i + 1 ; j *- j + 1 ; 

ff[j] - IF s[j] = s[i] THEN ff[i] ELSE i; 

ENDLOOP; 
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Setlndex[w.f ile.pos]; 

char ♦• w.f ile.get[w.f lie]; 

j 4- 0; -- j ' pattern index 

DO ENABLE UNWIND => SystemDef s . FreeHeapNodeCBASE[f f ]] ; 

IF j >« 1 THEN EXIT; 

char ^ w.f ne.get[w.file I StreamError => GOTO fail]; 

offset ♦• offset+1; 

IF char = CR THEN 

BEGIN pos ♦-*ModifyIndex[pos, offset]; offset <- END; 

WHILE j >= AND char if s[j] DO j ^ ff[j] ENDLOOP; 

J ^ J + 1; 

REPEAT 

fail => ERROR SearchFai led; 

ENDLOOP; 
SystemDef s.FreeHeapNode[BASE[ff]]; 

RETURN[pos, ModifyIndex[pos. offset-!]. Mod ifyIndex[pos .offset-!]] 
END; 

WindowFrontEnd: PUBLIC PROCEDURE[w: WindowHandle, cursor: CursorType] 
RETURNSCWindowHandle, BOOLEAN]= 
BEGIN 

-- Declare Locals 
nw: WindowHandle; 
x: xCoord; y: yCoord; 
mb : AMouseButton ; 
doit: BOOLEAN ^ TRUE; 
-- ask for window to put stuff into 
SetCursor[cursor]; 

-- wait to select a window or say ignore 
UNTIL (mb ^ GetMouseButton[]) = Red DO 
IF mb = Blue THEN 
BEGIN 

doit ♦• FALSE; 
RETURN[w, doit] 
END; 
ENDLOOP; 
-- now get selected window 
x ♦- xcursorloct; y ♦• ycursorloct; 
[nw, x, y] ♦• F indDispl ayWindow[x , y]; 
IF nw = NIL THEN nw ♦• w; 
RETURN[nw. doit]; 
END; 

KeysetMessage: ARRAY BOOLEAN OF STRING ^ ["KEYS ON". "KEYS OFF"]; 

EnableKeyset: PUBLIC PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord] = 
BEGIN 

-- define locals 

menuarray[commands-l] . keyword ♦• KeysetMessage[useKeyset «- -useKeyset]; 
END; 



ButtonWait: PROCEDURE = 
BEGIN 

-- wait until all button are up 
UNTIL GetMouseButton[] = None DO 

NULL; 

ENDLOOP; 
RETURN; 
END; 

-- initialization for windows module 
InitWindows: PROCEDURE = 

BEGIN 

menu array ♦- 

[ 

MenuUem[" CRTATE". CreateWindow] , 

Menu Uem[" or S TROY" , Des troyW i ndow] , 

Menultem[" MOVE", MoveWindow], 

MenuTtem[" GROW", GrowWindow], 

Menultem[" I GAD" , LoadWindow], 

MenuUem["STUrr IT", PutSelect], 

Menultem[" FIND", F i ndSelec t ion] , 

MenuItem[KeysetMessage[useKeyset ♦- FAISfJ. EnableKeyset] 

]; 
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END; 



— MAIN BODY CODE 
InitWindows[]; 

END. of wmanwindows 



